global direction,sDoorOpen,eDoorOpen,ladderHole,chase,blasting
if direction = "south" then
if sDoorOpen then
go to card id 33443
exit move
else
beep
put "The door is locked!" into field 3
exit move
end if
end if
if direction = "east" then
if eDoorOpen then
if ladderHole then
go to card id 30264
exit move
else
go to card id 6984
exit move
end if
else
beep
put "The door is locked!" into field 3
exit move
end if
end if
pass move
end move
on closeCard
set the cursor to 4
put "" into field 3
end closeCard
on take
global object,carried
-- remember to update carried if you do not pass take
pass take
end take
on drop
global object,dropRoom,carried
-- remember to update carried if you do not pass drop
pass drop
end drop
on use
global object,carried,sDoorOpen,eDoorOpen,causeOfDeath,demonDead
global holdID,prevID
put last word of object into obj
delete first char of obj
delete last char of obj
if obj="key" then
put "Both doors are now unlocked and you may pass through." into field 3
put true into sDoorOpen
put true into eDoorOpen
exit use
end if
if obj="knife" then
put "demon1" into causeOfDeath
visual effect dissolve slowly to black
go to card id 3409
exit use
end if
if obj="gem" then
put prevID into holdID
visual effect iris open very fast to white
visual effect iris open to white
visual effect dissolve
go to card id 13815
put true into demonDead
put "Brilliant move! The flash from the gem of light blasts the demon, leaving only a black sooty residue." into field 3
put holdID into prevID
show card button id 19 of card id 7465
exit use
end if
-- update carried if use results in loss of object
pass use
end use
-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=93 top=230 right=266 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp
-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=93 top=195 right=231 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp
-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=24 top=206 right=242 bottom=58
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a rope ladder" into field 3
put false into examFlag
end mouseUp
-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=73 top=108 right=144 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp
-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=128 top=130 right=166 bottom=162
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp
-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=204 top=114 right=218 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,takeFlag,direction,cardID,causeOfDeath
if takeFlag then
put "demon2" into causeOfDeath
go to card id 3409
else
put "A vile Demon of Darkness. Known to be very unfriendly types." into field 3
put false into examFlag
end if
end mouseUp
-- part 41 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=153 top=59 right=101 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,direction,cardID,sDoorOpen,demonDead,takeFlag
if examFlag then
put "A barred door leading south into the great chamber." into field 3
if sDoorOpen
then put " The door is unlocked!" after field 3
else put " The door is locked!" after field 3
put false into examFlag
else
if takeFlag then
put "You can't take the door." into field 3
put false into takeFlag
else
put "south" into direction
send move to card id cardID
end if
end if
end mouseUp
-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=27 top=89 right=146 bottom=56
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,direction,cardID,eDoorOpen,demonDead,takeFlag
if examFlag then
put "A barred door leading east into the round room." into field 3
if eDoorOpen
then put " The door is unlocked!" after field 3
else put " The door is locked!" after field 3
put false into examFlag
else
if takeFlag then
put "You can't take the door." into field 3
put false into takeFlag
else
put "east" into direction
send move to card id cardID
end if
end if
end mouseUp
-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=131 right=168 bottom=209
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: fake orb
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID,causeOfDeath
if takeFlag = true then
put "orb1" into causeOfDeath
go to card id 3409
exit mouseUp
else put "The crystal orb of power!" into field 3
put false into examFlag
end mouseUp
-- part contents for background part 25
----- text -----
Treasure Room
(looking south)
-- part contents for background part 24
----- text -----
You are in the treasure room. Exits are south and east: Both doorways have doors made of massive iron bars. A nasty looking creature, with skin so black it seems to reflect no light at all, is sitting here, holding a crystal orb. It hisses in a voice almost a whisper,
"I am a Demon of Darkness. Leave now or I will destroy you!"
.iso/•AdventureLand•/Adventures/HyperQuest 1.03 •••/HyperQuest 1.03 еее/card_13242_render.bmp){kind=link}
.iso/•AdventureLand•/Adventures/HyperQuest 1.03 •••/HyperQuest 1.03 еее/card_13815_render.bmp){kind=link}